1) LIBPAS.BKP[PAS,EJG] and 2) LIBPAS.PAS[PAS,EJG]	2-06-78 01:30	pages 4,4

**** File 1) LIBPAS.BKP[PAS,EJG], Page 4 line 25
1)	  DELIMITER3:  ARRAY['['..']'] OF DELIMITER;
1)	  INITPROCEDURE;
**** File 2) LIBPAS.PAS[PAS,EJG], Page 4 line 25
2)	  DELIMITER3:  ARRAY['['..'←'] OF DELIMITER;
2)	  INITPROCEDURE;
***************


**** File 1) LIBPAS.BKP[PAS,EJG], Page 4 line 41
1)	   END;
**** File 2) LIBPAS.PAS[PAS,EJG], Page 4 line 41
2)	    DELIMITER3['←'] := EQUAL;
2)	   END;
***************


**** File 1) LIBPAS.BKP[PAS,EJG], Page 6 line 67
1)	    IF FCH IN [' ','!','(',')',',','.','/',':','<','=','>','[',']']
1)	    THEN
**** File 2) LIBPAS.PAS[PAS,EJG], Page 6 line 67
2)	    IF FCH IN [' ','!','(',')',',','.','/',':','<','=','>','[',']','←']
2)	    THEN
***************


**** File 1) LIBPAS.BKP[PAS,EJG], Page 7 line 58
1)	    PROCEDURE READDECIMAL;
**** File 2) LIBPAS.PAS[PAS,EJG], Page 7 line 58
2)	    PROCEDURE READSIXBIT;
2)	     BEGIN
2)	      IF CH IN [' '..'←']
2)	      THEN
2)	       BEGIN
2)		OCVAL := OCVAL * 100B + (ORD(CH) - ORD(' '))
2)	       END
2)	      ELSE ERROR := TRUE
2)	     END (*READSIXBIT*) ;
2)	    PROCEDURE READDECIMAL;
***************


**** File 1) LIBPAS.BKP[PAS,EJG], Page 7 line 138
1)		IF CH IN [',','=']
1)		THEN
**** File 2) LIBPAS.PAS[PAS,EJG], Page 7 line 148
2)		IF CH IN [',','=','←']
2)		THEN
***************


**** File 1) LIBPAS.BKP[PAS,EJG], Page 7 line 159
1)		IF END←OF←FILENAME OR ((CH=',') AND (STATUS<>'[')) OR (CH='=')
1)		THEN
**** File 2) LIBPAS.PAS[PAS,EJG], Page 7 line 169
2)		IF END←OF←FILENAME OR ((CH=',') AND (STATUS<>'[')) OR (CH IN ['=','←'])
2)		THEN
***************


**** File 1) LIBPAS.BKP[PAS,EJG], Page 7 line 191
1)		 IF STATUS IN ['[',',','<']
1)		 THEN READOCTAL
1)		 ELSE READCHAR
1)		ELSE SETSTATUS
**** File 2) LIBPAS.PAS[PAS,EJG], Page 7 line 201
2)		IF STATUS IN ['[',',']
2)		 THEN READSIXBIT
2)		 ELSE
2)		  IF STATUS = '<'
2)		  THEN READOCTAL
2)		  ELSE READCHAR
2)		ELSE SETSTATUS
***************


**** File 1) LIBPAS.BKP[PAS,EJG], Page 7 line 256
1)			   UFD := OCVAL * 1000000B;
1)		    RBRACK :
**** File 2) LIBPAS.PAS[PAS,EJG], Page 7 line 269
2)			   IF OCVAL >= 400000B
2)			    THEN UFD := (OCVAL-400000B) * 1000000B  +  400000000000B
2)			    ELSE UFD := OCVAL * 1000000B;
2)		    RBRACK :
***************